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. Foreword 


This is the first of the Itty Bitty Bytes books in the Creative 
Pastimes series for the Commodore 64 Computer. Each book 
in the series is designed to bring you twenty fun programs and, 
at the same time, teach you something about BASIC. Typing in 
the programs is hard work. Often it will be necessary for you to 
translate the directions on the printout in order to know what 
keys to press on the keyboard. You must be careful to number 
the lines exactly, spell the words correctly, and put in all the 
required punctuation. But you will feel extra good when your 
program runs smoothly! 

In the Itty Bitty Bytes series of books two pages are devoted 
to each program. The page on the left contains the program 
itself. The page on the right contains explanations about each 
program. 

Always read the explanations. Sometimes there are addi- 
tions or changes that you can make to improve the program. 
Once you see what the program is all about, feel free to experi- 
ment with it—and by all means combine programs that work 
well together. The more you can do to make a program reflect 
your own special personality, the more you will enjoy it. Let me 
know if you find some nifty changes. | love to get mail! 

The Itty Bitty Bytes series has grown out of the teaching 
experiences I’ve had with my computer students. Special thank- 
yous go to all my “COMPU-KIDS”—and to my own kids, too— 
who keep presenting me with one good idea after another. They 
are my severest critics, but my most outstanding assets. 

Happy computing! 

Claire Bailey Passantino 
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A Note to Parents and Teachers 


You bought the computer. You read the manuals. You did the demo pro- 
grams. You and/or your children may even have taken some computer class- 
es. But now the computer is just sitting there. Everyone was so enthusiastic. 
What happened? 

The novelty of a new computer will take you just so far. Beyond that point, 
a continuing interest in this incredible tool is directly related to its usefulness. 
“Not useful” equates with “not used.” So the problem becomes, what can 
computers do that children would find useful? What kinds of things would 
encourage children to expend the energy needed to create their own comput- 
er programs? 

Each book in the Itty Bitty Bytes series is packed with computer activities 
appealing to young programmers. Simple games, contests, races, pictures, 
designs, songs, riddles, charts, tests, and more—all are designed to be fun 
while reinforcing beginning computer concepts and skills. 

Besides providing fun, there are fringe benefits to having children write 
their own programs. In working with children, | have found that computer 
programming encourages them to: 


Think creatively. 

Use logical thinking skills. 

Attend to details. 

Take small steps to achieve a goal. 
Personalize programs. 

Develop pride and self-esteem. 
Appreciate packaged software. 


To help children enjoy doing their own programs, here are some sug- 
gece DOs and DON'Ts: 

DO encourage children to type in their own programs. With younger 

children, bargain: “You type this line and I'll type the next one.” (Save 

the long lines for yourself!) 

e DON'T criticize typing expertise. Speed and correct fingering are typing 
skills minimally related to computer programming. 

¢ DO allow children to make mistakes. 

e DO help them find the errors they've made. (This is called “debugging” 
the program.) 

e DON'T worry when there is an error message. This means that a mistake 
has been made. Check the program for “bugs.” (The Commodore Com- 
puter will give you a ? OUT OF DATA ERROR when you go over a 
READY signal. Ignore this error message. The computer is trying to 
“READ Y” and there is no “Y” to read!) 
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DO encourage children to read and understand the program ex- 

planations. 

DON'T, however, force the issue. Some people learn by reading. Others 

learn by doing. As skills are repeated over and over in different contexts, 

children may just “catch on.” 

DO be aware of some common pitfalls. Remember to 

1. Use line numbers. 

2. Press after you type in a line of the program, even if the 
cursor has moved itself to the next line on the screen. Moving the 
cursor down the screen does not automatically enter the directions 
into the compuier’s memory. To do this you must press IGTS0GTE. 

3. Give great attention to spelling and punctuation. Quotation marks, 
commas, semicolons, colons, and even spaces are often very 
important. 

4. Save your program before you turn off the computer. 

DO help children save their programs on tape or disk so they can use 

them again and again. If you have a printer, use it to make “hard” copies 

of each program. People like to see themselves in print. 

DO experiment with the keyboard and get to know how it works in the 

immediate mode. (The immediate mode is when you give the computer 

a direction without a line number. It responds to your command and does 

something—immediately.) A systematic way to experiment would be to 

type each key, then type it while pressing the , then while press- 
ing and finally while pressing Kea. Example: What happens 

when you press [Ei 3 akc [37 

DO understand that a programmed command may look different from an 

immediate command, but it will achieve the same results. For example: 

10 PRINT “iJ” is what appears on the screen when you press 

[El inside the quotation marks of a print statement. However, when you 

type RUN, you will get the same white letters you got by pressing 

EEX in the immediate mode. 


DO refer to the Typing Tips in the Appendix. They will help you to 
understand the printouts of the programs, and how to type them on your 
own computer. When you are reading the printouts, it is especially impor- 
tant to remember that { } and £ J and underlined letters are impossible 
to type on the computer keyboard. This will serve to remind you that 
these symbols stand for certain typing procedures. 

DO remember that gives you back your nor- 
mal screen. 

DON'T let the multiple commands needed to create sound discourage 
you and your children from enjoying this feature of the computer. As you 
become more proficient with sound, the possibilities that these variables 
afford will intrigue you. 


¢ DO praise children for a job well done. And enjoy the programs that 
they've created. 
¢ DO modify and use programs that you yourself find useful. 


It is my sincere hope that the Itty Bitty Bytes books will help you and your 
children establish a healthy working relationship with your computer. Take 
that computer off the shelf! And let me know how things are working out! 
Good luck. 
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Itty Bitty Bytes of Space 


for the Commodore 64° Computer 
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Passing the Test 


How well do you know your planets? To be an astronaut, you 
must pass this test. A score of 90 is passing. Good luck! 


19 C=0:T=9 

20 FOR P=1 TO 5@@:NEXT P 

3@ PRINT CHR$(147) 

40 POKE 53281,9@ 

5@ READ PL$, FS 

60 IF PL$="END" THEN GOTO 139 

70 PRINT FG 

8% PRINT "WHAT IS THE PLANET?" 

9@ INPUT A$ 

190 T=T+1 

119 IF A$=PL$ THEN PRINT "RIGHT!":C=C+1:GOTO 29 

120 IF A$<>PL$ THEN PRINT "WRONG, THE ANSWER 
WAS ";PL$:GOTO 20 

139 SC=INT(C/T*100+ .5) 

149 IF SC<9@ THEN PRINT "SORRY. YOU DID NOT PASS!" 

150 IF SC>=9@ THEN PRINT "YOU PASSED THE TEST!" 

16@ PRINT "YOUR SCORE WAS ";SC 

200 DATA SATURN, THE PLANET WITH RINGS 

210 DATA EARTH,OUR PLANET 

220 DATA VENUS, THE MORNING AND EVENING 'STAR' 

230 DATA MARS, THE RED PLANET 

240 DATA JUPITER, THE LARGEST PLANET 

250 DATA PLUTO, THE FARTHEST PLANET 

26% DATA MERCURY,NEAREST TO THE SUN 

270 DATA NEPTUNE,NAMED AFTER THE GOD OF THE SEA 

280 DATA URANUS,7TH FROM THE SUN 

290 DATA PLUTO,A FAMOUS DOG 

30% DATA 


2 Dod SD YO FD Dt PS Ds DD DD oe ee OS DP 


C ¢ 


CCCEeCcccecceccececececececO CCC CeO CCC CCE CECE 


Main Ideas: Designing and scoring a test 


The variables used in this program are as follows: 


10 


130 
140-160 
200-290 

300 


C = Number of correct answers 
T = Total number of questions 


PL$ = Planet 

F$ = Fact about the planet 
A$ = Answer 

SC = Score 


At the beginning of the test, there are no correct answers and the 
total number of questions is 0. 

Pauses. 

Clears the screen. Printing CHR$ (147) is the same as pressing 
|CLR/HOME } 

Makes the background color 0 (black). 

Reads the name of a planet and the fact about it from the data list. 
Skips to 130 when it reaches the end of the data. 

Prints the fact about the planet. 

Asks for your answer. 

Allows you to input your answer. 

Adds 1 to the total number of questions. 

lf you answered correctly, adds 1 to the number correct and goes 
back to line 20 for another question. 

lf you answered incorrectly, tells you the correct planet and goes 
back for another question. 

Computes the score. 

Prints an appropriate message. 

The data. 

Flag data to signal the end of the program. (See line 60.) 


If you Know more facts about planets, you can add them to your data list. Make 
sure the flag data comes last! You may also use this program to make up a 
test about something else! 


dO 


Gravity 


Surface gravity varies on the planets. As part of your training, 
you must experience various gravitational pulls. How much 
would you weigh on Pluto? On Venus? How about on Jupiter? 
Find out! 


19 PRINT CHR$(147) 
29 PRINT "HOW MUCH DO YOU WEIGH ON EARTH?" 
3@ INPUT W 

4 PRINT CHR$(147) 

45 PRINT 

59 PRINT "WEIGHT ON EARTH:";W 

51 PRINT "{15 C}" 

60 PRINT "{DOWN}DOWN}" 

70 PRINT TAB(7)"WEIGHT ON OTHER PLANETS" 
71 PRINT TAB(7)"{23 C}" 

80 PRINT, "PLANET", "WEIGHT" 
81 PRINT, "{6 c}","{6 C}" 

99 PRINT 

190 PRINT, "MERCURY", .37*W 
119 PRINT, "VENUS", .88*W 
120 PRINT, "MARS", .38*W 

130 PRINT, "JUPITER" ,2.64*W 
149 PRINT, "SATURN", 1.15*W 
150 PRINT, "URANUS", ..79*W 
160 PRINT, "NEPTUNE", 1.12+W 
170 PRINT, "PLUTO", .03*W 
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Main Idea: Printing a chart 


10 Clears the screen. 

20 Asks the question. 

30 Allows you to input your weight. 

40 Clears the screen again. 

45 Skips a line. 

50 Prints your weight on earth. 

51 Underlines. | used to underline, but you can use any 
character you like. Experiment! 

60 Moves the cursor down 2 rows. To enter this line, press the 
key two times. It will look like a [Jj on the screen. 

70 Counts over to column 7 and prints the title. 

71 Counts over to column 7 and underlines the title. 

80 The first comma moves the cursor to the second print zone, where 
the column heading is printed. The second comma moves to the 
third print zone, where the next column heading is printed. 

81 Underlines the column headings. 

90 Skips a line. 

100-170 For each planet, prints the name of the planet, then computes and 
prints your weight on that planet. 


Test Your Spacecraft 


Tomorrow you will take off into outer space. Today you must 
test your spacecraft. Don’t worry. Nothing can go wrong! 


19 PRINT CHR$( 147) 

20 PRINT "WHAT IS YOUR NAME?" 

3Q INPUT NG 

4% PRINT CHR§$(147) 

5@ POKE 53281,¢ 

60 POKE 53289,2 

7) FOR R=1 TO 1@:PRINT: NEXT R 

80 PRINT TAB(5);"HELLO CAPTAIN ";N$ 

9% PRINT 

190 PRINT TAB(5);"ARE YOU READY TO GO?"; 
11@ INPUT A$ 

129 PRINT 

13@ PRINT TAB(8);"NOTHING CAN GO WRONG" 
149 PRINT 

15@ FOR P=1 TO 1500:NEXT P 

16@ PRINT "WRONG"; 

179 BG=INT(16*RND(1) ) 

189 POKE 53281,BG 

19% GOTO 1690 
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Main Idea: Holding a conversation with the computer 


10 


160 


An infinite loop 


Clears the screen. PRINT CHR$(147) works the same way as 
PRINT ‘{’ which is obtained by pressing [xia OMG. 
You may use these statements interchangeably. 
Asks the question. 
Allows you to tell your name. 
Clears the screen. 
Makes the background color 0 (black). 
Makes the border color 2 (red). 
Prints 10 blank lines. 
Goes to column 5 to print the message. 
Skips a line by printing a black line. 
Goes to column 5 to ask the question. 
Allows you to answer the question. 
Skips a line. 
Goes to column 8 to print the message. 
Skips a line. 
Pauses while the computer counts to 1500. 
An infinite loop. Press to break the program. Press 
to get back to the normal screen. 
Prints “WRONG.” Try a comma instead of the semicolon. Then 
take out the comma entirely. 
Selects a number from 0 to 15 for the background color. 
Changes the background color. To change the border color in- 
stead, type: 
180 POKE 53280, BG 
Goes back to print the repeating message on a flashing screen. 


(VO 


Wake Up! 


Adjustments have been made to your spacecraft. Better get 
some sleep. Tomorrow’s your big day. Don't forget to set the 
alarm clock. 


19 PRINT "{CLR} {10 DOWN}" 

20 POKE 53281,9@ 

30 PRINT "{WHT}"SPC(12) "NIGHTY NIGHT!" 
49 FOR P=1 TO 300@:NEXT P 

5@ FOR R=54272 TO 54296:POKE R,@:NEXT R 
69 POKE 53281,7 

70 PRINT "{CLR} {1@ DOWN}" 

80 PRINT "{RED}"SPC(13)"WAKE UP!" 

99 POKE 54273,60 

19% POKE 54277,9 

11@ POKE 54296,15 

120 FOR N=1 TO 12 

130 POKE 54276,21 

149 FOR P=1 TO 7@:NEXT P 

15@ POKE 54276, 2¢ 

16% NEXT N 

170 POKE 53281,2 

180 FOR P=l TO 5@:NEXT P 

19% GOTO 6¢ 
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Main Idea: Making an alarm clock sound 


10 


20 
30 


40 
90 


60 
70 


80 


90 


100 
110 
120-160 


170 
180 
190 


Clears the screen and moves the cursor down 10 rows. Type this 
line by pressing | CLR/HOME Aue 7 CRSR | | 
Makes the screen black. 

Makes the letters white, skips 12 spaces, and prints. To get the 
{WHT}, type 4. It will look like [Ej on the screen. 
Pauses while the computer counts to 3000. 

Clears all the sound registers. The addresses devoted to sound are 
numbered 54272 to 54296. 

Makes the screen yellow. 

Clears the screen and moves the cursor down 10 rows. (See line 
10 for directions on how to type.) 

Makes the letters red, skips 13 spaces, and prints. To get the 
{RED}, type EER. It will look like J on the screen. (On the 
yellow screen, the red letters look almost black.) 

Sets the high frequency at 60. (For a different pitch, you may select 
numbers from 1 to 255.) 

Sets the variable for attack/decay. 

Sets the loudness (15 is loudest). 

This section makes one trill. To make the trill, the waveform is 
turned on (line 130), held while the computer counts to 70 (line 
140), and then turned off (line 150). This procedure is repeated 12 
times. 

Makes the background red. The letters seem to disappear. 
Pauses briefly while the computer counts to 50. 

Goes back to line 60 to tell you to wake up again. This procedure 
will repeat until you turn off the “alarm.” To do so, press 
IGUNVERA. To return to the blue screen, press 
|RESTORE | 


(J) 


Kaboom! 


All systems are go. Blastoff! 


10 FOR L=54272 TO 54296:POKE L,@:NEXT L 
20 V=54296 

21 AT=54277 

22 SR=54278 

23 HF=54273 

24 LF=54272 

25 WF=54276 

30 PRINT CHR$(147) 

49 FOR R=1 TO 12:PRINT:NEXT R 
50 PRINT TAB(17); "KABOOM!" 


60 FOR FL=1 TO 50 
70 C=INT(16*RND(1)) 
80 POKE 53281,C 

99 POKE V,15 

91 POKE WF,129 


92 POKE AT,15 

93 POKE HF, 4@ 

94 POKE LF, 200 
199 NEXT FL 

119 POKE 53281,¢ 
120 POKE 53280,¢@ 
139 FOR P=1 TO 200:NEXT P 


(Add the next program to this one!) 
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Main Ideas: Flashing colors 


Using RESTORE to enable reuse of data 


Clears all the sound registers. 

Assigns variable names for the appropriate addresses. V stands for 
volume, AT for attack/decay, SR for sustain/release, HF and LF for 
high and low frequency, WF for waveform. 

Clears the screen. 

Prints 12 blank rows. 

Prints “KABOOM!” near the center of the screen. 

The blastoff will consist of 50 flashes. 

Selects a number from 0 to 15 for color. 

Makes the screen whatever color was selected. 

Pokes values into sound addresses. 15 is the loudest volume, 129 
is the waveform for noise. The other values were experimental. Try 
your own! ; 

Goes back to line 60 until the 50 flashes are completed. 

Makes the background black. 

Makes the border black. 

Pauses. 


Se 
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Lift Off 


It's up, up and away! 


15@ PRINT "{CLR}H21 DOWN}" 

16% PRINT TAB(19);"Z {4 SPACES}UP UP..." 
17@ PRINT TAB(18);"N {1 SPACE} M" 

180 PRINT TAB(18);"fG} {1 SPACE} &Mj" 
199 PRINT TAB(17);"U {3 &Pj} I" 

200 FOR LOUD=12 TO @ STEP —1l 

219 POKE V,LOUD 

220 POKE AT, 96 

230 POKE SR,@ 

249 POKE WF,17 

250 READ H,L 

260 IF H=—1 THEN 309 

270 POKE HF,H:POKE LF,L 

280 POKE WF,16 

299 GOTO 219 

300 PRINT: PRINT 

319 FOR T=1 TO 3@:NEXT T 

320 RESTORE 

330 NEXT LOUD 

349 PRINT TAB(27);"...AND AWAY!" 

350 GOTO 359 

400 DATA 33,135,35,134,37, 162,39, 223, 42,62 
419 DATA 44,193,47,107,59,69,53,57,56,99 
429 DATA 59,1990,63,75,67,15 

439 DATA -1,-1 
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Main Idea: Moving an image up the screen 


You may run this program by itself, but it works well as an addition to the last 


program. 
150 


160-190 
160 
170 
180 
190 


200-330 


340 
350 


400-420 


430 


Moves the cursor home, then down 21 rows. To get the {CLR}, 


press KeMG OER. | will look like {J on the screen. 
To get the {21 DOWN}, press the QMRReRISERE 21 times. It 
will look like 

Draws the spaceship. Here are some helpful hints: 

Press a PA. It will look like “”. 

Press [Eg IX, space, Ea BD. It will look like “/7\.”. 
Press [eli Kel, space, Rema DUN. It will look like “| |”. 

Press ila D3 | P GB. it will look like 
i omeae 

Makes 12 sets of lift-off sounds. Each set is a little softer than the 
last, and between each set 2 blank lines are printed (line 300) to 
give the illusion of moving the spaceship up the screen. 

Print this when finished. 

A dummy line to freeze the message and prevent the READY 
signal. It is called a dummy line because it keeps going to itself. 
Pretty dumb! 

Data for one set of sounds. The data is restored by line 320 so it 
can be used for all 12 blips. 

This is flag data used in line 260 to signal the end of one blip and 
move the spaceship up. 


Ui 
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Music from Mother Earth 


What's this? They’re sending you music from Earth. They must 
be testing the sound system! 


19 PRINT CHR$( 147) 

20 POKE 53281, 

30 PRINT CHR$(5) 

40 FOR R=1 TO 8:PRINT:NEXT R 

5@ PRINT TAB(5);"TWINKLE TWINKLE LITTLE STAR" 

69 PRINT 

70 PRINT TAB(3);"HOW I WONDER HOW MANY THERE ARE!" 

80 FOR L=54272 TO 54296:POKE L,@:NEXT L 

99 V=54296: WF=54276 : AT=54277 : HF=54273 : LF=54272 : 

SR=54278 : HP=54275 : LP=54274 

170 POKE V,15 

189 POKE AT,88 

199 POKE SR,89 

200 POKE HP,9 

219 POKE LP,@ 

22 READ H,L,T 

230 IF H=—-1 THEN 499 

249 POKE HF,H 

250 POKE LF,L 

260 POKE WF,65 

270 PRINT "{HOME}" 

280 PRINT:PRINT TAB(5);"*" 

290 FOR P=1 TO 2@@*T:NEXT P 

300 POKE WF,64 

319 PRINT CHR$(144) 

320 PRINT "{HOME}" 

330 PRINT:PRINT TAB(5);"*" 

349 FOR P=1 TO 30:NEXT P 

350 PRINT CHR$(5) 

369 GOTO 170 | 

370 DATA 33,135,1,33,135,1,50,60,1,59,60,1,56,99,1,56, 
99,1,590,69,2 

380 DATA 44,193,1,44,193,1,42,62,1,42,62,1,37,162,1,37, 
162,1,33,135,2 

399 DATA -1,-1,-1 

40% GOTO 409 
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Main Ideas: Playing a song 


170-210 


220 


230 


240-260 


270 


280 


290 


300 
310 
320 
330 
340 
350 


360 
370-380 
390 
400 


Making an image blink 


Clears the screen. 

Makes the screen black. 

Characters will be printed in white. 

Prints 8 blank lines. 

Positions and prints the title. 

Clears all the locations for sound. 

Assigns variable names to locations dealing with sound. These 
locations are: volume (54296), waveform (54276), attack/decay 
(54277), high frequency (54273), low frequency (54272), sus- 
tain/release (54278), high pulse (54275), low pulse (54274). 
Assigns values to various sound variables. Changing these values 
will produce different kinds of sounds. 

Reads three numbers from the data (in lines 370-390). H and L are 
the high and low frequencies for the note. T is the time (number of 
beats). Refer to the chart of Musical Notes in the Appendix. 
Checks for “flag” data. When the computer reads a —1 for the H 
value, the program skips to line 400. 

Assigns the first two values read in line 220 to high frequency and 
low frequency. Sets waveform to pulse (65). 

Moves the cursor to the home position in the upper left corner. 
Press (e]MSYaTe ISH. It will look like [yh 

Prints a black line, then counts to column 5 and prints a star (in 
white). 

Uses the third value read in line 220 to determine how many beats 
to hold each note. To slow down the song, pick a number larger 
than 200 for the length of one beat. To speed it up, choose a 
smaller number. 

Turns off the waveform. 

Sets up black as the next color to use for printing characters. 
Sends the cursor home. 

Prints a black star on top of the white star, thereby erasing it. 
Pauses. 

Goes back to white, for printing characters. By switching from black 
to white to black, etc., the star appears to blink. 

Goes back to 170 to play the next note and print a blinking star. 
Data for each note. 

“Flag” data used to signal the end of the song. (See line 230.) 


Freezes the image on the screen. 2K 


To count the stars, add the next program to this one. 


15 


Pee 


Count the Stars 


The stars are just beautiful! It's amazing how many of them 
there are. Start to count them. 


49@ REM COUNT STARS 


419 CT=9@ 
420 FOR R=1 TO 2@:PRINT: NEXT R 
439 PRINT " PRESS ANY KEY TO COUNT THE STARS" 


449 GET K$:IF K$="" THEN 44¢ 
45@ PRINT CHR$(147) 

469 CT=CT+1 

470 L=INT(4@*RND(1) ) 

48% PRINT CT; TAB(L);"*" 

49% GOTO 46¢ 
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400 
410 
420 
430 
440 
450 
460 


470 
480 
490 
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Main Ideas: Incrementing a variable. 


An infinite loop 


For extra fun, add this program to your last program! 


A remark. 

Sets the counter at 0. 

Prints 20 blank rows. 

Prints directions near the bottom of the screen. 

Waits until a key is pressed. 

Clears the screen. 

Increments the count. This means that the count increases. In this 
case, the count is incremented by one. 

Picks a random number from 0 to 39. 

Prints the count and then prints a star at the random location. 
Goes back to 460 to print the next star, and the next, and the next, 
and . . . this loop will continue forever. It is called an infinite loop. 
To break the loop, press IGTUXVEKe. To return to the normal 
screen, press | RESTORE | 


2) ) 


) ¥ 


Make Your Own Kind of | 


Why not play your own song? Press keys 1 to 8! 


1@ PRINT CHR$( 147) 

2% FOR R=1 TO 9:PRINT:NEXT R 

30 PRINT TAB(4);"TO MAKE MUSIC, PRESS KEYS 1-8." 
4 K=@:POKE 54276,64 

6% POKE 54296,15:REM VOLUME 

76 POKE 54277,20:REM ATTACK 

80 POKE 54278,89:REM SUSTAIN-RELEASE 
99 POKE 54275,9:REM HIGH PULSE 

199 POKE 54274,@:REM LOW PULSE 

11@ GET K:IF K<l OR K>8 THEN 1190 
120 POKE 54276,65:REM WAVEFORM 


42 44 63 67 


135 162 62 193 60 


139 IF K=1 THEN POKE 54273,335:POKE 54272,155 
149 IF K=2 THEN POKE 54273,37:POKE 54272,162 
159 IF K=3 THEN POKE 54273,42:POKE 54272,62 
160 IF K=4 THEN POKE 54273,44:POKE 54272,195 
17@ IF K=5 THEN POKE 54273,59:POKE 54272,690 
189 IF K=6 THEN POKE 54273,56:POKE 54272,99 
199 IF K=7 THEN POKE 54273,63:POKE 54272,'75 
20% IF K=8 THEN POKE 54273,67:POKE 54272,15 
219 GOTO 490 

18 
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Main Ideas: Using the keyboard to play songs 


120 
130-200 


Clears the screen. 

Skips 9 lines by printing 9 blank rows. 

Goes to column 4 and prints directions. 

Sets K to 0 and turns off the waveform. 

Sets the variables to make sound. Changing these variables 
changes the characteristics of the sound. 

Sets up the keyboard for input. When you press a key, the value of 
K changes. 

Turns on the waveform. 

Depending on the key pressed, the high and low frequencies are 
set. Then the program goes back to line 40 to turn off the note and 
get the next one. For a complete chart of the notes and their high 
and low frequency values, refer to the Appendix. 
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What Is It? 


Something scary has appeared on your screen. What is it? 


16 PRINT CHR$(147) 

20 PRINT:PRINT 

3@ GOSUB 19@:PRINT SPC(4)"Z"SPC(3)"Z" 

49 GOSUB 190:PRINT SPC(4)"{2 SPACES}k*j]{2 SPACES}" 
5@ GOSUB 19@:PRINT SPC(4)"{5 SPACES}" 

69 GOSUB 19@:PRINT SPC(4)"{SPACE} N kT] M [SPACE]" 
70 GOSUB 19@:PRINT SPC(6)"{SPACE}" 

84 GOSUB 19@:PRINT SPC(6)"{SPACE}" 

9% GOSUB 19%:PRINT SPC(6)"{SPACE}" 

19@ GOSUB 19@:PRINT SPC(3)"{7 SPACES}" 

110 GOSUB 19@:PRINT SPC(3)"{7 SPACES}" 

12 GOSUB 19@:PRINT SPC(3)"kMj {5 SPACES} Gj" 
130 GOSUB 19@:PRINT SPC(3)"kMj {5 SPACES} [Gj" 
149 GOSUB 19@:PRINT SPC(3)"{Mj {5 SPACES} Gj" 
15@ GOSUB 19@:PRINT SPC(3)"kMj {5 SPACES} £Gj" 
16% GOSUB 19@:PRINT SPC(4)"{5 SPACES}" 

176 GOSUB 19@:PRINT "{6 SPACES} B {6 SPACES}"' 
180 GOTO 30¢ 

199 REM GOSUB ROUTINE 

20¢ PRINT TAB(12); 

210 PRINT CHR$(18); 

220 PRINT CHR$(3Q); 

23% RETURN 

30% REM END 


8) 4 8 9 101112 13 1415 16 17 18 19 2021222324 


Program line 
line 
line 
line 
line 
line 
line 
line 
line 
line 
line 
line 
line 
line 
line 
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Main Ideas: Drawing a picture on the screen 


10 
20 


30-170 


40 

50 

60 
70-90 
100-110 


120-150 


160 
170 


180 
190-230 
200 
210 
220 
230 
300 


Utilizing a GOSUB routine 


Clears the screen. 
Prints 2 blank lines. 


Draws the creature, using a GOSUB routine to repeat procedures. 
Remember that underlined letters in the printout are made by typ- 
ing with the letter. Letters in £ J are made by typing 
with the letter. SPC instructs the computer to skip over a certain 
number of spaces. 

Prints two @ shapes for eyes. Since the GOSUB turn on reversed 
characters and green color, the eyes appear on a green 
background. 

Prints 2 green spaces, a — for the nose, and another 2 spaces. 
Skips over 4 spaces and prints 5 green spaces. 

Prints a mouth/—x. 

Each line skips over 6 spaces and prints a space for the neck. 
Both lines skip over 3 spaces and print 7 spaces. 

The HW and the make the dark lines that separate 
the arms from the 5 spaces of body. 

Skips over 4 spaces and prints 5 spaces. 

Prints 6 spaces for each foot. B= prints the line between 
the feet. 


When finished drawing, skips to 300. 
The GOSUB routine: 

Goes to column 12. 

Turns on reverse. 

Selects green color. 

Returns to the program. 

Ends. 


To find out who this creature is, add the next program to this one. 
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Who Is It? 


Aha! Do you know who it is? Add these lines to your last pro- 
gram to solve the mystery! 


309 REM TEE HEE MUSIC 

310 FOR L=54272 TO 54296:POKE L,@:NEXT L 

320 POKE 54296,15:REM LOUDNESS 

330 POKE 54277,88:REM ATTACK 

349 POKE 54278,89:REM SUSTAIN 

359 POKE 54275,9:REM HIGH PULSE 

360 POKE 54274,0:REM LOW PULSE 

370 READ H,L,T 

389 IF H=-1 THEN 499 

399 C=INT(16*RND(1)) 

460 POKE 53281,C 

419 POKE 54273,H:POKE 54272,L:REM HIGH/LOW FREQUENCY 

429 POKE 54276,65:REM WAVEFORM 

430 FOR P=1 TO 1@@*T:NEXT P 

449 POKE 54276,64:REM WAVEFORM 

450 GOTO 376 

460 DATA 33,135,3,50,60,6,44,193,1,42,62,1,37,162,1, 
33,135,1,31,165,3,33,135,6 

479 DATA 28,49,3,56,99,6,50,60,1,44,193,1,42,62,1,37, 
162,1,35,134,3,37,162,6 

489 DATA -1,-1,-1 

499 PRINT "{HOME}":FOR R=1 TO 2@:PRINT:NEXT R 

500 PRINT "WATCH OUT FOR LASER BEAMS!" 

519 PRINT "IT'S TEE HEE, UNFRIENDLY ALIEN WHO NEVER 
EVER PHONES HOME!" 


Watch out for laser beams! 


520 POKE 53281,¢ 

530 PRINT "{HOME}": PRINT 

549 PRINT TAB(12) CHR$(144): 
550 PRINT SPC(4)"«"SPC(3)"*" 
560 FOR P=1 TO 30:NEXT P 
570 PRINT "{HOME}": PRINT 

580 PRINT TAB(12) CHR$(5); 
590 PRINT SPC(4)"*"SPC(3)"«" 
60% GOTO 53¢ 
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Main Ideas: Combining graphics and sound 


300 
310-360 
370 
380 


390 
400 
410 
420 
430 
440 
450 
460-470 
480 
490 


500-510 
915 


600 


Flashing background 
Making an object appear, disappear and reappear 


Remark. 
Pokes values into locations for sound. 

Reads high and low frequency, and time for each note. 

Checks for flag data. Flag data is used to signal the computer. In 
this case, it will go to line 490. 

Picks a random color. 

Changes the background to the color picked. 

Pokes in the values for high and low frequency. 

Turns on the waveform. 

Holds the note 100 units for each beat. 

Turns off the waveform. 

Goes back to 370 to set up the next note. 

Data for the notes. 

Flag data. 

Brings the cursor home, then counts down 20 rows before printing. 
When you press it looks like “{’ on the screen. 
Prints the message. 

Moves the drawing up closer to the laser beams. Try PRINT:PRINT 
to get even closer. 


Makes the background black. 
Brings the cursor home and skips a line. 

Goes to column 12 and selects black as the drawing color. 

Skips 4 spaces, prints a black star, skips 3 spaces and prints 
another black star (invisible since the background is black). 
Pauses and counts to 30. Change the 30 to a larger number for a 
longer pause. 

Brings the cursor home and skips a line. 

Goes to column 12 and selects white as the drawing color. 
Draws 2 white stars where the black ones had been drawn, flashing 
them on the screen. 

Goes to 530 to draw black stars thereby erasing the white ones. 
Changing from black to white to black again gives the illusion of 
blinking. 23 
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Hit or Miss? 


You have 100 rounds of ammunition. Fifty hits will knock him 


out, or at least damage his lasers. Can you do it? 


Ss 


=%:M= 
R=1 TO 100 
=INT(2*RND(1) ) 
IF X=@ THEN H=H+1 
IF X=1 THEN M=M+1 
GOSUB 209 
POKE 54276,128 
PRINT "HITS ";H,"MISSES ";M 
NEXT R 
IF H<5@ THEN PRINT "NO MORE CALLS TO GRANDMA!": END 
PRINT "YOU DID IT!" 
PRINT "PHONE HOME AND TELL THEM ALL ABOUT IT!":END 
REM SHOTS 
FOR V=15 TO 1@*RND(1) STEP —1 
POKE 54296,V:REM VOLUME 
POKE 54276,129:REM WAVEFORM NOISE 
POKE 54277,15:REM ATTACK 
POKE 54273,255*RND(1):REM HIGH FREQUENCY 
POKE 54272,255*RND(1):REM LOW FREQUENCY 
NEXT V 
RETURN 
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Main ideas: Random outcome 


Initializing and incrementing variables 
Using a GOSUB routine 


Initializes the variables at 0. H stands for hits and M stands for 
misses. 

Loops through 100 rounds of ammunition. 

Selects a0 ora 1. 

If O was selected, adds one to the number of hits. 

If 1 was selected, adds one to the number of misses. 


NOOO oo CCI 


220-260 


270 


280 


Goes to line 200 and makes a shooting sound. 

Turns off the sound of the shot. 

Prints the current score. 

Returns to line 20 for another round of ammunition. 

Prints this line if the number of hits is less than 50. 

Prints this if you had at least 50 hits. 

This is the GOSUB routine to produce shooting noises. 

Reduces the volume from loudest (15) to some number chosen at 
random, from 0 to 9. 

Sets the sound variables. The high and low frequencies are se- 
lected at random. Perform your own experiments and pick your 
own numbers (from 0 to 255). 

Loops back to line 210 for as many times as needed to reduce the 
volume. 

Returns to the program. 
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Meteors 


It’s a meteor shower. Can you steer your way through it? Good 
luck! 


1@ PRINT "{CLR}" 
20 FOR SK=1 TO 25:PRINT:NEXT SK 
30 POKE 53289,5 
40 POKE 53281,0 
50 L=2@ 
69 POKE 1824+L,81 
70 POKE 56996+L,5 
80 R=INT(4@*RND(1)) 
99 POKE 1984+R,169 
199 POKE 56256+R,6 
110 J=PEEK (56320) 
120 IF J=117 
OR J=118 OR J=119 
THEN L=U+1 
130 IF J=121 OR 
J=122 OR J=123 
THEN L=L-1 
149 IF L>39 THEN L=39 
150 IF L<@ THEN L=@ 
16@ PRINT 
170 GOTO 69 ! 
How about some collisions! And let’s keep count. You need to 


assess the damages to your spacecraft. 


45 T=%:C= 

55 IF PEEK(1824+L)<>32 THEN GOSUB 390 
162 T=T+1 

165 IF T=209 THEN GOTO 4090 

17@ GOTO 55 

3090 REM COLLISION 

319 FOR E=1 TO 20 

32% F=INT(16*RND(1) ) 

339 POKE 53281,F 

340 NEXT E 

359 POKE 53281,0 

369 C=C+1 

370 RETURN 

4099 REM ENDING 

419 PRINT "THAT WAS ";C;" COLLISIONS!" 
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Main Ideas: Using the joystick to plot a course down the screen 


10 


20 


30 
40 
50 


60-70 


80 
90-100 


110 
120 
130 
140-150 
160 
170 


Clears the screen. To type the {CLR}, press 
ee I=¥. |t looks like [J on the screen. 

Prints 25 blank lines. This moves the cursor down to the bottom of 
the screen. The next time something is printed, the screen will 
scroll up. This scrolling action gives the illusion of motion. 

Makes the border color 5 (green). 

Makes the background color 0 (black). 

Your beginning location is 20, halfway across the 40 column 
screen. 

Refer to your Screen Memory Map and Color Memory Map in the 
Appendix. Line 1824 and line 56096 are each 5 rows from the 
bottom. Display Code 81 (a circle) will be drawn for you in color 5 
(green). 

Picks a random integer from 0-39. 

Displays code 160 (a reversed space) at a random spot in the 
bottom row. This stands for a meteor and will be drawn in color 6 
(blue). 

Checks the joystick position. 

If you've pushed towards the right, 1 is added to your location (L). 
If you've pushed towards the left, 1 is subtracted. 

Keeps you at the edge of the screen if you push too far right or left. 
Prints a blank line, thereby making the screen scroll upwards. 
Goes back to line 60 to draw you and the next meteor. 


To make a game out of this, let’s count how many collisions you have out of 
200 times through the loop. 


45 


95 


162 


165 


400-410 
300-370 


Sets both counters to 0. At the beginning of the game, there are no 
times (T) through the loop and no collisions (C). 

Checks the location where you're about to go. Code 32 stands for a 
space. If there’s something at your new location besides a space, 
youre about to have a collision and you are sent to the collision 
routine beginning at line 300. 

Each time a meteor is displayed, adds one to the number of times 
through the loop. 

When the counter gets to 200, skips to 400. (To make the game 
longer, choose a number larger than 200.) 

Tells you how many collisions. 

This is a GOSUB routine. It flashes 20 times and adds 1 to the 
number of collisions. After the routine is performed, the RETURN 
statement in line 370 returns you to the main program at line 60 
(where you left off). 
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How Much Fuel? 


Oh no! The fuel gauge is broken! Can you guess how much fuel 
you have left? (A full tank holds 100 gallons.) 


5 PRINT "{CLR}" 
19 PRINT "HOW MANY GALLONS ARE LEFT?" 

20 F=INT(10@*RND(1) ) 

3@ INPUT G 

49 IF G=F THEN 100 

5@ IF G<F THEN PRINT "YOU HAVE MORE THAN THAT!" 
6@ IF G>F THEN PRINT "NOT THAT MUCH!" 

70 GOTO 39 

19@ PRINT "RIGHT!" 


This ending will evaluate 
the amount of fuel you 
have left. You need at 
least 30 gallons to land, but 
60 gallons would be better. 


19@ PRINT "{CLR}" 
11% PRINT "{5 DOWNH1@ RIGHT}20 +}" 
120 PRINT "{5 DOWN]19 RIGHT}"; 
130 IF F<3@ THEN PRINT SPC(4)"BAD NEWS!!!!":GOTO 160 
149 IF F<6@ THEN PRINT SPC(3)"SHOULD BE OK!!":GOTO 160 
15@ IF F>=6@ THEN PRINT SPC(4)"EXCELLENT! ! !" 

16@ PRINT "{5 DOWN}H1@ RIGHT}2@ *}" 

179 GOTO 1790 
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Main Ideas: Guessing Game 


Using SPC and cursor keys to position messages 


Clears the screen. (Press [Eig aj KelGYatey =H. It will look like KJ 
on the screen.) 

Asks the question. 

Picks a number from 0 to 99 for fuel (F). 

Allows you to input your guess. 

Skips to line 100 if you guessed correctly. 

If you guessed too low, prints this hint. 

If you guessed too high, prints this hint. 

Goes back to line 30 so you can guess again. 

Prints “Right!” 


This section centers and prints a message, depending on the amount of fuel 


you have. 


100 
110 


120 


130-150 


160 
170 


Clears the screen. 

To type this line, press 5 times, then 
10 times, and then 20 regular asterisks. This statement will 
move the cursor down 5 rows, and 10 spaces to the right before 
printing the stars. It will look like this on the screen: 
PRINT & QQQQQ |I|]1!|] 1] slatateteehelaiaieebalaiaeehelaiall 

Moves 5 rows down and 10 spaces to the right. The semicolon 
holds the cursor in position before printing the necessary message. 
The SPC command is used to skip a designated number of spaces. 
Depending on the amount of fuel, an appropriate message is 
printed. 

Moves 5 rows down, 10 spaces right and prints 20 asterisks. 

A dummy line to freeze the image on the screen and prevent the 
READY signal. 


et 
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Space Sketch 


Insert your joystick in port 2. Before doing the program, type in this short one. 
It will help you to understand the main program by showing what happens 
when you push the joystick in different directions. Also try the fire button. Can 
you find all the numbers in the diagram? 


[a1] fire button 


126 


1 J=PEEK (56320) 
2 PRINT J 
5 GOTO 1 


As you near your destination, you see something awesome. 
The camera is broken. Sketch what you see. NASA will want to 
study your drawing when you return 


1@ PRINT "{CLR}" 

20 POKE 53289,7 

30 POKE 53281,¢@ 

49 L=50@:C=1 

5@ POKE 1924+L,16¢@ 

6@ POKE 55296+L,C 

70 J=PEEK (56329) 

89 IF J=127 THEN 79 

99 IF J=119 THEN L=L+1 
109 IF J=123 THEN L=L-1 
119 IF J=126 THEN L=L-4@ 
120 IF J=125 THEN L=L+4@ 
199 IF L<@ OR L>999 THEN 19 
200 GOTO 590 


DODO 7D D919 DD 


How about drawing diagonally, and in different colors? 


13@ IF J=118 THEN L=L—39 
149 IF J=117 THEN L=L+41l 
15@ IF J=122 THEN L=L-—41 
16@ IF J=121 THEN L=L+39 
170 IF J=111 THEN C=INT(16*RND(1) ) 


= 
a 
a 
a 
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Main Idea: Using the joystick to draw 


Here’s how it works: 


10 Clears the screen. To type the {CLR}, just press 
Rela es. It will look like a reversed heart on the screen. 
20 Selects border color 7 (yellow). 
30 Selects background color 0 (black). 
40 Sets the location of the first characters at the 500th block, in the 
middle of the 1000-block screen. The color of the drawing will be 
color 1 (white). 
50 Draws a white block (a reversed space) at the current location. 
Refer to the screen codes in the Appendix. The code for a space is 
32. Add 128 to get a reversed space. Try your own combinations. 
For example, try code 81 (a dot) and then try 81+128, or 209, fora 
reversed dot. 
60 Sets the color of the character being drawn. 
70 Checks the joystick. 
80 Goes back to 70 if the joystick is at rest and has not been pushed. 
90 Adds 1 to the location if you pushed right. 
100 Subtracts 1 for left. 
110 Subtracts 40 (one row contains 40 positions) if you pushed up. 
Adds 40 for down. 
190 If you try to go off the screen, you must start over. Watch out for the 
lower right and upper left corners! 
200 Goes to 50 to do the drawing. 


Here are some explanations about the addition to the program: 


130-160 These lines allow you to draw diagonally. When you push diago- 
nally, you are really pushing in two directions at the same time. 
Refer to the diagram to help you understand where the numbers 
come from. 

170 If the fire button is pressed, picks a new number for C, a number 
from 0 to 15. By changing the color you can make a multicolored 
drawing. You can also erase anything that you don’t like by drawing 
over it in a color you like. 
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Design Your Own Parachute 


Before leaving Earth, you were asked to design your own para- 
chute. If all goes well, you will make it safely back to Earth. 


5 PRINT "{CLR}" 

19 POKE 532890,6:POKE 53281,6 

20 V=53248 

30 POKE V+21,1 

40 POKE 2049,13 

5@ POKE V+39,4 

6% FOR N=@ TO 62:READ D:POKE 832+N,D:NEXT N 
19@ DATA 1,255,128 
191 DATA 7,255,224 
192 DATA 31,255,248 
193 DATA 31,255,248 
194 DATA 63,255,252 
195 DATA 127,255,254 
196 DATA 255,255,255 
107 DATA 255,255,255 
198 DATA 255,255,255 
199 DATA 128,8,1 
11@ DATA 64,8,2 
111 DATA 32,8,4 
112 DATA 16,8,8 
113 DATA 8,8,16 
114 DATA 4,8,32 
115 DATA 2,8,64 
116 DATA 1,8,128 
117 DATA 9,137,9@ 
118 DATA 9,74,9 
119 DATA 0,60,9 
120 DATA 0,60,0 
130 FOR X=1 TO 255:Y=X 

149 POKE V,X:POKE V+1,Y 

15@ NEXT X 

16% PRINT:PRINT:PRINT "WELCOME BACK TO EARTH!" 
179 GOTO 1790 


This line would make your parachute bigger: 


55 POKE V+23,1: POKE V+29,1 
For a little excitement, add the next program to this one. 
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Main Ideas: Using binary numbers 
Creating a sprite 


| 1103 DATA 31, 255, 248 
eH 104 DATA 63, 255, 252 


4106 DATA 255,255, 255 
3107 DATA 255,255, 255 
108 DATA 255,255, 255 
1 


Cer TTT 14 pata 4, 8, 32 
pt Ta ea TT TT 115 DATA 2, 8, 64 
: Be | 1116 DATA 1, 8, 


128 

: | 1117 DATA 0, 137, 0 
10] Tt tT TT las pata o, 74, 0 
110i tt tT l9 pata 0, 60, Oo 
JIG TT ITT tl20pata 0, 60, Oo 

Read your manual for a fuller description of sprites. Depending on how many 


boxes you use, you can obtain any value from 0 to 255. Try a few. 


12864 3216 8 4 2 1 


5S Clears the screen. To type the {CLR} press 

Ree VI=H. It will look like a reversed heart on the screen. 

10 Makes a blue background and border. 

20 The starting address of the video chip. 

30 Enables sprite 0. 

40 Sprite 0 data from the 13th block. 

50 Sets the color of the parachute to purple. Refer to the Color Chart in 
the Appendix to select a different color. 

60 Reads the data for the sprite and pokes the values into locations 
832 to 894, locations reserved for sprite 0. 

100-120 Data for the parachute. Refer to the diagram. Each set of three 
numbers stands for the boxes colored in in the first, second, and 
third sections of a row. 

130-150 TS The parachute is drawn at pixels 1, 1; 2,2; 3,3: 

oe etc. Locations V (53248) and V+1 (53249) are 
es poked again and again for the X and Y posi- 
~s tioning of sprite 0. 
160 Prints message. 
170 A dummy line used to prevent the READY signal. The line keeps 
going to itself, so the program “freezes.” Since the program never 
ends, you never get a READY signal. 
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Happy Landing 


On your descent to Earth you must decide when you need your 
parachute. Press “P” when you think the time is right. The 
timing is absolutely critical! (Add these lines to your last 
program.) 


6 PRINT "PRESS P FOR PARACHUTE!" 

7 GOSUB 20¢ 

200 FOR L=54272 TO 54296:POKE L,@:NEXT L 

21% POKE 54296,15:POKE 54277,88:POKE 54278, 89: POKE 
54275,9:POKE 54274,9 

229 FOR H=259@ TO 1 STEP —2 

230 POKE 54276,65:POKE 54273,H:POKE 54272,19@ 

240 FOR P=1 TO 5@:NEXT P:POKE 54276,64 

250 GET K$ 

260 IF K$="P" THEN 300 

270 NEXT H 

300 IF H>=19@ AND H<=15@ THEN RETURN 

319 IF H>15@ THEN PRINT "TOO EARLY! SORRY!": END 


320 PRINT "TOO LATE!" 

330 FOR R=1 TO 20:PRINT:NEXT R 

349 PRINT " SPLAT!" 

359 GOTO 350 _ 
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Main Ideas: Creating a sound effect by playing a sequence of notes 


Using GET to interrupt a sequence 


When added to the parachute program, these lines will give you a game 
where timing is critical. 


250 
260 
270 
300-350 
300 


310 
320-350 


Prints instructions. 

Sends you to a GOSUB routine, a series of directions executed 
before returning to the main program. 

Clears the sound locations in the computer. 

Pokes values into locations related to creating sounds. 

Plays a sequence of notes. 

The high frequency will go from 250 to 1 by two’s. 

Turns on the waveform, pokes the high frequency value into memo- 
ry and maintains 100 as the low frequency value. 

Pauses and turns off the waveform. To slow down the sequence of 
notes, pick a number greater than 50. To speed up the sequence, 
select a number less than 50. 

Checks to see if a key has been pressed. 

If a P was pressed, skips to line 300. 

Continues to play the sequence of notes. 

Reacts depending on your place in the sequence of notes. 

If you are between notes 100 and 150, returns to the program 
above and draws the parachute. 

Prints this if you are between 250 and 150. 

Prints “TOO LATE” and prints 20 blank rows before printing 
“SPLAT!” The last line is a dummy line used to prevent a READY 
signal. 


NOTE: You may obtain the same result in line 330 by printing the IR@stsieml 
key 20 times. When you use this key inside quotation marks, it prints a 


reversed Q on the screen: 330 PRINT ‘“Meyeyereyeyeyeveyererveyeyereyeyeverereren”’ 
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Final Report 


It's time to evaluate your mission. The General wants your re- 
port as soon as possible. 


5 REM ASKS FOR INPUT 

19 PRINT "{CLR}" 

15 PRINT "YOUR NAME": 

20 INPUT N$ 

25 PRINT "NAME OF GENERAL IS GEN."; 
39 INPUT G$ 

35 PRINT "PLANET VISITED"; 

4Q INPUT PL$ 

45 PRINT "LENGTH OF TRIP": 

50 INPUT L$ 

55 PRINT "DAY OF WEEK": 

60 INPUT D¢ 

65 PRINT "A NUMBER"; 

70 INPUT N 

19% REM PRINTS REPORT 

11@ PRINT "{CLR}" 

120 PRINT "REPORT OF "N$ 

130 PRINT "TO GEN."G$ 

14% PRINT 

15@ PRINT "MY MISSION TO "PL$" IS COMPLETED." 
16@ PRINT "THE MISSION LASTED "L$"." 
170 PRINT "I WILL SEND YOU A "N" PAGE" 
18@ PRINT "REPORT NEXT "D$"." 
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Main Ideas: Inserting variables into a text 


15-70 


100-180 


Distinguishing between numeric and string variables 


A reminder. 

Clears the screen. Press | CLR/HOME | 

Asks you to input some variables. There are two kinds of variables. 
String variables (N$, G$, PL$, etc.) contain alphabetic or alpha- 
numeric information, but numeric variables (N) can contain only 
numbers. When you are asked for a number (N), see what happens 
if you type in a letter. 

Prints the report. Notice the use of quotation marks and spaces. If 
you want to print a space, you must include it inside the quotes. 
One exception: the Commodore 64 will leave a space before and 
after printing a number. That is why line 170 uses no extra spaces 
inside the quotation marks. 
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The Race for Space 


Find out who has won the race for space. 


19 PRINT "{CLR}" 

20 PRINT:PRINT TAB(1@)"THE RACE FOR SPACE" 

3@ PRINT "{HOME}'7 DOWN} U.S.A." 

4 PRINT "{HOMEH12 DOWN} U.S.S.R." 

5@ PRINT "{HOMEH17 DOWN} CHINA" 

69 U=@:R=@:C=@ 

76 X=INT(3*RND(1))+1 

80 IF U=49 OR R=4@ OR C=49 THEN 200 

9¢ IF X=1 THEN PRINT "{HOMEH8 DOWN}"'SPC(U) 
"{GRN}X" :U=U+1 

1990 IF X=2 THEN PRINT "SHOMEH13 DOWN}'' SPC (R) 
"{RED}*" :R=R+1 

116 IF X=3 THEN PRINT "{HOME}18 DOWN}'"'SPC(C) 
"IYELO}Q":C=C+1 

120 GOTO 70 

20% PRINT "{HOME]21 DOWN}"' 

216 IF U<4@ THEN PRINT "TOO BAD,CAPTAIN! YOU MUST TRY 
HARDER!" 

220 IF U=4@ THEN PRINT "CONGRATULATIONS, CAPTAIN!" 

230 GOTO 23@ 
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Main Ideas: A race 
Experimenting with colors, symbols and cursor movement in the 
programming mode 


If you haven't done so already, experiment with the keyboard in immediate 
mode. Type a key. Then type it again using Eg, and again using egagTal, 
and again using [@j. Try each key. Whenever you need to, push 
to get back to the normal screen. Now you are 
ready to use some of these combinations in programming mode: 


10 Clears the screen. Press Billlad Reusyirte =a. 


20 Skips a line, counts to position 10 and prints. 

30 Brings the cursor home, then down 7 rows to print “U.S.A.” To type 
this line press KeEGWEeVIE§. Then press 7 times. On 
the screen, line 30 looks like this: 30 PRINT . “‘eqexerereveyerey 
U.S.A.” 

40 Brings the cursor home, then down 12 rows to print “U.S.S.R.” 

90 Brings the cursor home, then down 17 rows to print “CHINA”. 

60 All 3 countries will begin the race at box 0. 

70 Picks a number from 1 to 3. 

80 Checks to see if any contestant is up to box 40. Since 39 is the last 
column, this would mean that someone has won the race. If there is 
a winner, the program skips to line 200. 

90 If the computer picked a 1, the cursor goes home, then down 8 
rows. It then skips the number of spaces that U has completed and 
prints a green clover. (To get{GRN} press El. It looks 
like fj on the screen. When you press you get the #&.) 
It then adds one to the number of spaces that U has travelled so 
that each green clover is printed next to the last green clover. Be 
sure that you do not add extra spaces. 

100 If it picked a 2, the computer makes a red star for Russia. (To get 
{RED} press FEB. It looks like JJ on the screen.) 
110 Similarly, a yellow circle is made for China. To get the {YELO} press 
eg TEH EEX. It looks like [I on the screen. When you press 
Kell you will get a @. 
120 Goes back to line 70 to select the next country to move ahead. 
200 Moves the cursor home, then down 21 rows. 
210 If the U.S. is not the country that reached 40, it means someone 
else has won the race, and the computer prints this message. 
220 If the U.S. is the winner, this message is printed. 
230 A dummy line to freeze the message on the screen. 
To run the race on a different colored screen, select a color from the color 
chart and add this line. | chose color 11 (gray): 15 POKE 53281, 11 
Also, experiment with the color keys and graphics symbols in lines 90, 100, 
and 110. Be sure to type the quotes before making changes so that the 
computer knows you are in the programming mode. If a line gets messed up, 
just type the whole line again. The new line will replace the old line. 
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Break the Code 


The General has sent you this final message. Run the program 


to break the code. 


19 PRINT "{CLRH11 DOWN}" 

20 PRINT SPC(13); 

30 READ N 

49 IF N=-1 THEN 199 

50 PRINT CHR$(N); 

60 GOTO 3¢ 

70 DATA 79,86,69,82,32,65, 78,68, 
32,79, 85,84,33,—-l 

146@ GOTO 109 


19 PRINT "{CLR}" 

20 PRINT "WHAT CHARACTER DO YOU 
WANT TO KNOW?" 

30 INPUT A$ 

40 A=ASC(A$) 

5@ PRINT "ITS CODE IS "A 

6% PRINT 

70 GOTO 20 
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Main Idea: Using ASC and CHR$ to find out and use ASCII codes 


The codes you see here are standard to most computers. These code num- 
bers were used to create a secret message. 


10 


20 


30 
40 


50 


60 


70 
100 


Clears the screen and moves the cursor down 11 rows. To get the 


{CLR}, press Rome i=8. Then press 11 Bi@sSERe. 
On the computer screen, line 10 looks like this: 10 PRINT 


Skips 13 spaces. The semicolon keeps the cursor at the 14th posi- 
tion, ready to print. 

Reads a number from the data list. 

Checks to see if the last number has been read. If so, the program 
skips to line 100. 

Prints the character itself instead of its code number. The semi- 
colon is important because it keeps the cursor where you want it. 
Leave it out and see the difference! 

Goes back to read the next number. 

The code numbers. 

A dummy line to freeze the message and prevent the READY 
signal. 


To find the ASCII code for a character, say the letter M, type: 


PRINT ASC (‘M”) 


If you don’t have a chart and you would like to find out codes, the program on 
the bottom of the page is useful for most characters: 


10 
20 


Clears the screen. 
Asks you for a character. If you type more than one character, the 


' ASCII code of the first character will be returned. 


Allows you to input. 

Assigns the variable name A to the ASCII code number. 
Prints the code number. 

Skips a line. 

Goes back to get the next character you want to know. 


SE END 
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Appendix 


Color Chart, 45 
Memory Maps: 
Color Memory Map, 46 
Screen Memory Map, 47 
Musical Notes, 49 
Screen Display Codes, 50 
Sprite Planner, 51 
Typing Tips, 52 
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Consult the color memory map to change the color of characters at specific screen locations. For example: 


Makes an A in the upper left corner.) 
he A white.) 


(Makes t 
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10 POKE 1024,1 
20 POKE 55296,1 
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Musical Notes 


There are eight octaves of notes available to you on the Commo- 
dore 64. The number above each note is the HIFREQ value. 
The number below each note is its LOW FREQ value. 


134 942 180189 168 179 169 200 212 228 238 253 


300138 80 tag (ti 


22 23 25 26 268 29 31 33 36 37 39 42 44 47 50 53 56 59 63 67 7175 79 84 89 94 100 106 112 119 126 


1 1:12 «13«°«14«114~«18 6 8617 18 19 21 


49 


COdCOCOGOCECCOCOGCEECCOCOOCOCOCGOEC COOCCOEOCOCCOCCC 


‘1Z1-0 Sepoo jo safbew pasianas ase GSGZ—BzI WO. SEePOD 


‘(L 3@S) aseo 
seddn 0) yoeq 186 


“equunu cO0l 
apoo Aejdsip LOL 
uaasos Jedoud ay “i | COL 
:s6uiyy snoy MOU | 66 

0} peau NOA ‘usas0S | 86 
ay) uO suayoeseyd | 26 


. asa) 3MOd O1 | 96 ERYZz ERYzE 


3HOd 2138 1 13S 3WOd 2193S 11438 | IWOd 2139S t 19S IMWOd 2139S 1139S 


qmoagwudo:nr 


6 
8 
Z 
9 
S 
v 
€ 
o 
b 
0 


0} Le'eZzeS 3NOd =| zt a" NY é me 
‘(Z J@S) eSed 18MO| 921 ir a} < | 
10} 2z'ZZZES BXOd | SZ F:) oO = [ 
'QION é.8., | bel al | > 3 

ue 386 Nok pip Aus |:s« EZ ‘3 A ] 
Ze'elzeS JAOd S| zk 0 Zz ®@ z Z 
:SI4) ppe MON | LZ a A OO 6 A A 
ZU8819S ey) jo aUI09 | OZ = x 8 x 4 
yoj-seddn au) ul ..y., | GLE =) M OO l M M 
moja e 186 nok pig | git 0 A ie 9 A A 
L'962SS BHOd 02 =| Zit a | n Ff S n n 
L'yZOl 3XOd OL Obl oO i Q } 1 
‘sty Aun | Sb CH s f@ € s S 

(dew Auoway rth ea y 5 Z J yj 
1010D ey) yWNSUOD) ~=| ELL bd o.)6|CUB L b 6O 
‘U@QJDS BY} UO JO}OD Zit F) qd O 0 d d 
ey) ind 0} e20UM “by | LHL 5 o QO / o Oo 
(ueYyD J0j}0D eur —s| «COLL Y n @ u N 
\NsUOy) “40}09 au) 601 A) w AN wi Ww 
10} sequuinu epoo sus ‘€ | BOL F) 1 0 | 7 
(dew | Zot Hi 4» 4 © 

Aiowayy uaes9S 901 oO c Al [ cr 
ay) ynsuod) ‘usel0s SOL (4 | ty | 
@y} UO Ja}OeJeYo vOl ia ia} Y H 
aun ind 0) a1ayM “Z| EOL oH O an) 
8 | } J 

oO E) eo 4 

oO =) p a] 

Oo =| ) <) 

| on q g 

(y [¥) e Vv 

= ” 


S30090 AV1dSIG N3S89S 


50 


51 


‘yQ BIOPOWLWOD JNOA JOY Says 9}e919 0} WeUD SIU} Esp 


YANNV 1d SLIbdS 


1 ¢ & 8 9 CE v9 BCL | 2 b&b B Ot CE v9 BZL +t 2 &F BS QOt Z v9 Ba 


FIMFOIIIIPFIIIIIIIIIDIIIIIIAIIIDIDIIIIIIIIIIDID 


CrCl CCC OG CCE COCOCCCOCOCCOC COCO CU c 


"SOuI] BAY) G GU) SSesd pue Ady Ey au) UMOP PjOY Pinoys NOA yeu) SuBew {gq Ss} 
‘Sau ua} Aoy RRSEfem ou) SSoid pinoys nod yeu, sueaw {NMOC OF} 


‘Sajdwexe swos 
ase B19} ‘payeoipul Aey auy adh} Ajpayeedas ysnw nod yeu) Sueaw SIy) ‘s}eyoesg BU) UI PasojoUa JaquuNnu e PUL NOA }j| :ajON 


"S10]0D BU) jNoGe UONeWOJU! BuidA} 10} WEYD JOJOD Sy} O} JaJaY 


(LZ) $YHO OR 2) 1 ko4 
(ELL) $YHO TOP LSIHS ®@ fe) 
$YHO Suisn GuYuVvOgAIm NI3IYOS LNOLNIUd 
yt adA} 40 ay} UO ay} uO ay) UO 
uu adA 0} MOY SOO} ji MOH S300] }! MOH 


:ajdwexe 104 “f | Sjayoesq jelsads ul pasojoua si Ao Jy au) Buisseid Aq apew sajoeseYO Y ‘pauIapUN 
SI JaJOeIeYO PaYIyS e& ‘YOO siy) Ul S}NojUUd ay UO “Ja}NdWOD By} YIM SAWOS Jeu} BPIND Ses Sy) Ul dN yoo; UBD 
noA yeu) JaQquNu apoo $YHD e Sey Osje sua}oeeYO asau) JO YOR FBR ssoud ‘9; ay) uo sajoeseyo ou) uieygo o1 PRET 
ssaid ‘Aay ayy jo yyHu ay) UO Ja}9eseYO By) UIeE}GO OJ “Way UO pajuUd sua}ORJeYO soiydesb jeI9ads aAey Shay BWOS 


(9¢L) $YHO OF THL9 | = {4OAY} 
(81) $HHO 16 FHL | | {NOAY} 
(ZS4) $YHO - YSHO “A LSIHS| rT {1451} 
(62) $HHO ‘ YSHO - @ {LHDId} 
(Spt) SYHO “YSHO . FE LSIHS| e| {dn} 
(Zt) $HYHO I” YSHO | [5 {NMOG} 
(61) $YHO |SWOH/Y19 | So {WOH} 
(Zp) $YHO |SINOH/810 9 LSIHS| A {19} 

$YHO Guisn GuvOsAIy NIFY99OS LNOLNIdd 

ad 40 ay} UO ay) uO ay} uO 
u add) 0) MOH S400] 3! MOH S300] 1! MOH 


52 


Sdil ONIdAL 


53 


Notes 


This page is for you to write on. 


PFIPIIPIAIIVIVIVIIVIVIIPIIIIAIIAIFIVIIIIIIFPIIIDIIIDID 


COCCHOCOCCOCOCOOCCOOC GO OrC OCG CGC CO CC CAC 


JIIIIIIIIIIII’IIINII~INIFGIIIIIIIIBIIIIAIAIIIIIINIO 
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ITTY BITTY BYTES 


~ SPACE p. 


SPACE—an endless source of fascination for us all. Children, how- 
ever, have the imagination to project themselves into orbit as effort- 
lessly as they learn to talk. Now, ITTY BITTY BYTES OF SPACE 
encourages your child to explore the magic of space with the help 
of your home computer. Young readers are presented with bite-size 
programs and activities designed to excite their eyes, ears, and 
minds. Each program is accompanied by programming hints and 
suggestions for parents and teachers. Help your children learn, 
grow, and play—the computer way! 


Table of Contents: A Note to Parents and Teachers ¢ Passing the Test 
Gravity Test Your Spacecraft ¢ \\/ake Up! © Kaboom! ¢ Lift Off ¢ Music from 
Mother Earth ¢ Count the Stars © Make Your Own Kind of Music ¢ What Is 
It? @ Who Is It? ¢ Hit or Miss? © Meteors © How Much Fuel? ¢ Space Sketch 


e Design Your Own Parachute @ Happy Landing ¢ Final Report ¢ The Race 


for Space ¢ Break the Code 
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‘es Books: Matilda the Computer Cat 
School Days 


For more information on Creative Pastimes Books write to: 
Reston Computer Group 
11480 Sunset Hills Road 
Reston, VA 22090 
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